Revista do CD-ROM 39

home *** CD-ROM | disk | FTP | other *** search

/ Revista do CD-ROM 39 / CD-ROM 39 / CD-ROM 39.iso / COLORDIC / MOUSE / ENTRADA.FRM < prev next >

Wrap

Text File | 1996-01-21 | 52.6 KB | 1,483 lines

VERSION 2.00 Begin Form Entrada BackColor = &H00C0E0FF& BorderStyle = 0 'None ClientHeight = 4020 ClientLeft = 1080 ClientTop = 1485 ClientWidth = 7365 ControlBox = 0 'False Height = 4425 Left = 1020 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = ENTRADA.FRX:0000 ScaleHeight = 268 ScaleMode = 3 'Pixel ScaleWidth = 491 Top = 1140 Width = 7485 WindowState = 2 'Maximized Begin MMControl MMControl1 BackVisible = 0 'False EjectVisible = 0 'False Height = 375 Left = 3000 RecordVisible = 0 'False StepVisible = 0 'False TabIndex = 0 Top = 300 UpdateInterval = 0 Visible = 0 'False Width = 2205 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 12 Left = 7665 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 5400 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 19 Left = 5760 MDelay = 40 MEffect = 12 'Push Down MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1800 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 18 Left = 5760 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 5400 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 17 Left = 5760 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 16 Left = 3840 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1800 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 15 Left = 0 MDelay = 40 MEffect = 1 'Left To Right MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 5400 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 14 Left = 0 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 3600 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 13 Left = 5760 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 3600 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 11 Left = 7680 MDelay = 40 MEffect = 22 'Explode MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1800 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 10 Left = 7680 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 3600 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 9 Left = 1920 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 3600 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 8 Left = 3840 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 5400 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 7 Left = 1920 MDelay = 40 MEffect = 12 'Push Down MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 5400 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 6 Left = 7680 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 5 Left = 0 MDelay = 40 MEffect = 22 'Explode MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1800 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 4 Left = 1920 MDelay = 40 MEffect = 12 'Push Down MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1800 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 3 Left = 3840 MDelay = 40 MEffect = 24 'Zoom Out MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 3600 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 2 Left = 3840 MDelay = 40 MEffect = 26 'Corners Out MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 1 Left = 1920 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1800 HFileName = "" Index = 0 Left = 0 MDelay = 40 MEffect = 11 'Push Up MGrain = 10 Multitask = -1 'True Notify = -1 'True NotifyDelay = 200 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1920 End End Dim Contador_Entrada As Integer Const DIR_ENTRADA = "F:\PLINIO\COLORDIC\ICONES" Const DIR_AUDIO = "F:\PLINIO\COLORDIC\AUDIO\" Sub Form_Load () fximage1(0) = LoadPicture(DIR_ENTRADA & "\AULART1.bmp") fximage1(1) = LoadPicture(DIR_ENTRADA & "\QUANINA1.bmp") fximage1(2) = LoadPicture(DIR_ENTRADA & "\QUAMENI1.bmp") fximage1(3) = LoadPicture(DIR_ENTRADA & "\PARQUI1.bmp") fximage1(4) = LoadPicture(DIR_ENTRADA & "\NUMERO1.bmp") fximage1(5) = LoadPicture(DIR_ENTRADA & "\LANCHO1.bmp") fximage1(6) = LoadPicture(DIR_ENTRADA & "\FUNMAR1.bmp") fximage1(7) = LoadPicture(DIR_ENTRADA & "\FRUTA1.bmp") fximage1(8) = LoadPicture(DIR_ENTRADA & "\FEIRA1.bmp") fximage1(9) = LoadPicture(DIR_ENTRADA & "\COZIN1.bmp") fximage1(10) = LoadPicture(DIR_ENTRADA & "\CAVALO1.bmp") fximage1(11) = LoadPicture(DIR_ENTRADA & "\SALAMU1.bmp") fximage1(12) = LoadPicture(DIR_ENTRADA & "\QUANINA1.bmp") fximage1(13) = LoadPicture(DIR_ENTRADA & "\QUAMENI1.bmp") fximage1(14) = LoadPicture(DIR_ENTRADA & "\PARQUI1.bmp") fximage1(15) = LoadPicture(DIR_ENTRADA & "\NUMERO1.bmp") fximage1(16) = LoadPicture(DIR_ENTRADA & "\FUNMAR1.bmp") fximage1(17) = LoadPicture(DIR_ENTRADA & "\FRUTA1.bmp") fximage1(18) = LoadPicture(DIR_ENTRADA & "\COZIN1.bmp") fximage1(19) = LoadPicture(DIR_ENTRADA & "\FEIRA1.bmp") 'fximage1(0) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(1) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(2) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(3) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(4) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(5) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(6) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(7) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(8) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(9) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(10) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(11) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(12) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(13) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(14) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(15) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(16) = LoadPicture(DIR_ENTRADA & "\cao3.bmp") 'fximage1(17) = LoadPicture(DIR_ENTRADA & "\cavalo1.bmp") 'fximage1(18) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") 'fximage1(19) = LoadPicture(DIR_ENTRADA & "\aviao1.bmp") mmcontrol1.Wait = True mmcontrol1.DeviceType = "WaveAudio" mmcontrol1.Notify = True mmcontrol1.UpdateInterval = 0 If Not mmcontrol1.Mode = MCI_MODE_NOT_OPEN Then mmcontrol1.Command = "Close" End If som_liberado = 1 mmcontrol1.FileName = DIR_AUDIO & "TRInome.wav" mmcontrol1.Command = "Open" mmcontrol1.Command = "play" End Sub Sub FXImage1_Click (Index As Integer) For i = 0 To 19 fximage1(i).Visible = False Next fximage1(0).Visible = True End Sub Sub FXImage1_Notify (Index As Integer) Contador_Entrada = Contador_Entrada + 3 If Contador_Entrada > 20 Then Contador_Entrada = Val(Right(Contador_Entrada, 1)) ElseIf Contador_Entrada = 20 Then Contador_Entrada = 0 Usuario.Show Entrada.Hide End If fximage1(Contador_Entrada).Visible = True DoEvents 'FXImage1(Contador_Entrada).Visible = False End Sub Sub MMControl1_Done (NotifyCode As Integer) mmcontrol1.Command = "Close" End Sub